home *** CD-ROM | disk | FTP | other *** search
/ Best of Shareware / Best of PC Windows Shareware 1.0 - Wayzata Technology (7111) (1993).iso / mac / ZIPPED / DOS / PRINTERS / LJPRTIII.ZIP / RASTER.PRG < prev    next >
Text File  |  1992-08-09  |  3KB  |  85 lines
  1.    #include "SET.CH"
  2.  
  3.    #include "FILEIO.CH"
  4.  
  5.    #include "ljprtiii.CH"
  6.  
  7.  
  8.  
  9. function RastTest()
  10.  
  11.    local cS     := ""
  12.    local nI     := 0
  13.    local nII    := 0
  14.    local nIII   := 0
  15.    local nbytes := 0
  16.  
  17.    local aRast := { ;
  18.          {   0 ,   0 ,  0 , 128 ,   0 } , ;
  19.          {   0 ,   0 ,  0 , 192 ,   0 } , ;
  20.          {   0 ,   0 ,  0 , 224 ,   0 } , ;
  21.          {   0 ,   0 ,  0 , 240 ,   0 } , ;
  22.          {   0 ,   0 ,  0 , 248 ,   0 } , ;
  23.          {   0 ,   0 ,  0 , 252 ,   0 } , ;
  24.          {   0 ,   0 ,  0 , 254 ,   0 } , ;
  25.          {   0 ,   0 ,  0 , 255 ,   0 } , ;
  26.          {   0 ,   0 ,  0 , 255 , 128 } , ;
  27.          { 255 , 255 ,255 , 255 , 192 } , ;
  28.          { 255 , 255 ,255 , 255 , 224 } , ;
  29.          { 255 , 255 ,255 , 255 , 240 } , ;
  30.          { 255 , 255 ,255 , 255 , 248 } , ;
  31.          { 255 , 255 ,255 , 255 , 252 } , ;
  32.          { 255 , 255 ,255 , 255 , 254 } , ;
  33.          { 255 , 255 ,255 , 255 , 255 } , ;
  34.          { 255 , 255 ,255 , 255 , 255 } , ;
  35.          { 255 , 255 ,255 , 255 , 254 } , ;
  36.          { 255 , 255 ,255 , 255 , 252 } , ;
  37.          { 255 , 255 ,255 , 255 , 248 } , ;
  38.          { 255 , 255 ,255 , 255 , 240 } , ;
  39.          { 255 , 255 ,255 , 255 , 224 } , ;
  40.          { 255 , 255 ,255 , 255 , 192 } , ;
  41.          {   0 ,   0 ,  0 , 255 , 128 } , ;
  42.          {   0 ,   0 ,  0 , 255 ,   0 } , ;
  43.          {   0 ,   0 ,  0 , 254 ,   0 } , ;
  44.          {   0 ,   0 ,  0 , 252 ,   0 } , ;
  45.          {   0 ,   0 ,  0 , 248 ,   0 } , ;
  46.          {   0 ,   0 ,  0 , 240 ,   0 } , ;
  47.          {   0 ,   0 ,  0 , 224 ,   0 } , ;
  48.          {   0 ,   0 ,  0 , 192 ,   0 } , ;
  49.          {   0 ,   0 ,  0 , 128 ,   0 }   ;
  50.          }
  51.  
  52.  
  53.    @ 0,0 clear
  54.  
  55.    for nI = 1 to 4
  56.       do case
  57.       case nI == 1
  58.          LJ_Send_NC( ESC + "*p300x400Y" )
  59.          LJ_RastSet( GRAPHICS_RESOLUTION , DPI_300 )
  60.  
  61.       case nI == 2
  62.          LJ_Send_NC( ESC + "*p400x375Y" )
  63.          LJ_RastSet( GRAPHICS_RESOLUTION , DPI_150 )
  64.  
  65.       case nI == 3
  66.          LJ_Send_NC( ESC + "*p500x350Y" )
  67.          LJ_RastSet( GRAPHICS_RESOLUTION , DPI_100 )
  68.  
  69.       case nI == 4
  70.          LJ_Send_NC( ESC + "*p700x300Y" )
  71.          LJ_RastSet( GRAPHICS_RESOLUTION , DPI_75 )
  72.       endcase
  73.  
  74. //    LJ_RastSet( START_RASTER_GRAPHICS , LEFT_MARGIN_X_0  )
  75.       LJ_RastSet( START_RASTER_GRAPHICS , LEFT_MARGIN_X_CURRENT )
  76.       LJ_RastSet( PRESENTATION_MODE, LOGICAL_PAGE_MODE  )
  77.  
  78.       LJ_RasTran( aRast )
  79.  
  80.       LJ_RastSet( END_RASTER_GRAPHICS   )
  81.  
  82.    next nI
  83.  
  84.    return nil
  85.